COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Declarations for the compiler.
C00004 00003	Constants.
C00005 00004	MACRO:  add-at-end[x,y]
C00006 00005	MACRO:  caten[x,y]
C00007 00006	MACRO:  mark-and-redraw[]
C00008 ENDMK
C⊗;
;Declarations for the compiler.
 
(DECLARE (SPECIAL LPAR))
(DECLARE (SPECIAL RPAR))
(DECLARE (SPECIAL $ECHO-CMD))
(DECLARE (SPECIAL $DEFAULT-CIRCLE-RADIUS))
(DECLARE (SPECIAL $DEFAULT-RECTANGLE-WIDTH))
(DECLARE (SPECIAL $DEFAULT-RECTANGLE-HEIGHT))
(DECLARE (SPECIAL $DEFAULT-REGULAR-POLYGON-RADIUS))
(DECLARE (SPECIAL $DEFAULT-REGULAR-POLYGON-SIDES))
(DECLARE (SPECIAL $DEFAULT-SQUARE-SIZE))
(DECLARE (SPECIAL $DEFAULT-STRAIGHT-LENGTH))
(DECLARE (SPECIAL $DEFAULT-LINEAR-RATIO))
(DECLARE (SPECIAL $DEFAULT-CIRCULAR-SEGMENT-RADIUS))
(DECLARE (SPECIAL $DEFAULT-CIRCULAR-SEGMENT-SEGMENT))
(DECLARE (SPECIAL $DEFAULT-NON-PERP-LENGTH))
(DECLARE (SPECIAL $DEFAULT-NON-PERP-Y-DISP))
(DECLARE (SPECIAL $DEFAULT-NON-PERP-Z-DISP))
(DECLARE (SPECIAL $SIMULATOR-DEFAULT-CAMERA-DISABLED))
;Constants.

(SETQ LPAR '/()
(SETQ RPAR '/))
(SETQ $DEFAULT-CIRCLE-RADIUS 1.0)
(SETQ $DEFAULT-RECTANGLE-WIDTH 1.0)
(SETQ $DEFAULT-RECTANGLE-HEIGHT 3.0)
(SETQ $DEFAULT-REGULAR-POLYGON-RADIUS 1.0)
(SETQ $DEFAULT-REGULAR-POLYGON-SIDES 6)
(SETQ $DEFAULT-SQUARE-SIZE 1.0)
(SETQ $DEFAULT-STRAIGHT-LENGTH 10.0)
(SETQ $DEFAULT-LINEAR-RATIO 0.5)
(SETQ $DEFAULT-CIRCULAR-SEGMENT-RADIUS 2.5)
(SETQ $DEFAULT-CIRCULAR-SEGMENT-SEGMENT 5.0)
(SETQ $DEFAULT-NON-PERP-LENGTH 12.0)
(SETQ $DEFAULT-NON-PERP-Y-DISP 3.0)
(SETQ $DEFAULT-NON-PERP-Z-DISP 6.0)
;MACRO:  add-at-end[x,y]

(MACRODEF ADD-AT-END (X Y)
	  (SETQ X (NCONC X (LIST Y)))
	  )   ;end-defun
;MACRO:  caten[x,y]
;catenates two strings.

(MACRODEF CATEN (X Y)
	  (IMPLODE (APPEND (EXPLODEC X) (EXPLODEC Y)))
	  )   ;end-macrodef
;MACRO:  mark-and-redraw[]
;marks all SIMPLE-CONEs as being CHANGED-PARTs,
;and then orders a redraw of the screen.

(MACRODEF MARK-AND-REDRAW ()
	  (FOR X ε ∂DB-INDEX:NODES:SIMPLE-CONE[$DB-INDEX] DO
	       ∂SIMPLE-CONE:CHANGED-PART[X]← T)
	  (MODITOR-DRAW)
	  )   ;end-defun